! GOTO statement is an outer IF block so existing CONTINIUE
! statement is targetted and since no inner GOTOs remain
! END if label is removed. (more complicated DO/IF structure
! to make sure refactoring is unaffected by other program  
! structures.)

PROGRAM test_numbered_statement_after_continue
   INTEGER :: sum, i
   sum = 0
   DO 20, i = 1, 10
     IF (MOD(i,2).eq.0) THEN
       GOTO 10
     END IF
     sum = sum + i
     IF (sum.ge.100) THEN
       sum = sum + sum
10   END IF                     !<<<<< 17, 1, 17, 12, pass
20 CONTINUE
30 PRINT *, 'sum:', sum
END PROGRAM test_numbered_statement_after_continue
